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PLANO DA OBRA 


“INPUT” é uma obra editada em fascículos semanais, e cada 
conjunto de 15 fascículos compõe um volume. A capa para enca- 
dernação de cada volume estará à venda oportunamente. 


COMPLETE SUA COLEÇÃO 


Exemplares atrasados, até seis meses após o encerramento da coleção, pode- 
rão ser comprados, a preços atualizados, da seguinte forma: 1. PESSOAL 
MENTE — Por meio de seu jornaleiro ou dirigindo-se ao distribuidor local, 
cujo endereço poderá ser facilmente conseguido junto a qualquer jornaleiro 
de sua cidade. Em São Paulo, os endereços são: rua Brigadeiro Tobias, 773, 
Centro; avenida Industrial, 117, Santo André; e no Rio de Janeiro: avenida 
Mem de Sá, 191/193, Centro. 2. POR CARTA — Poderão ser solicitados exem- 
plares atrasados também por carta, que deve ser enviada para DINAP — Dis- 
tribuidora Nacional de Publicações — Números Atrasados — Estrada Velha 
de Osasco, 132, Jardim Teresa — CEP 06000 — Osasco — SP. Não envie pa- 
gamento antecipado. O atendimento será feito pelo reembolso postal e o pa- 
gamento, incluindo as despesas postais, deverá ser efetuado ao se retirar a en- 
comenda na agência do Correio. 3. POR TELEX — Utilize o nº (011) 33 670 
DNAP, 

Em Portugal, os pedidos devem ser feitos à Distribuidora Jardim de Publica- 
ções, Lda. — Qta. Pau Varais, Azinhaga de Fetais — 2 685, Camarate — Lis- 
boa; Apartado 57 — Telex 43 069 JARLIS P. 

Atenção: Após seis meses do encerramento da coleção, os pedidos serão aten- 
didos dependendo da disponibilidade do estoque. 

Obs.: Quando pedir livros, mencione sempre título e/ou autor da obra, além 
do número da edição. 


COLABORE CONOSCO 


Encaminhe seus comentários, críticas, sugestões ou reclamações 
ao Serviço de Atendimento ao Leitor — Caixa Postal 9442, 
São Paulo — SP, 
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Programe seu micro para simular a 
eterna luta dos seres unicelulares 

pela vida. Depois, desafie um parceiro 
para jogar. O arranjo inicial da 

colônia de bactérias definirá o vencedor. 


Neste fascinante jogo, o video repre- 
senta um mundo bidimensional, onde 
células podem viver, multiplicar-se e 
morrer. O Jogo da Vida, como é deno- 
minado, foi inventado por um cientista 
inglês há alguns anos, para ser jogado 
em um tabuleiro como o de xadrez. Em 
sua versão computadorizada, bastante 
popular entre os usuários de microcom- 
putadores, a tela é dividida em um pa- 
drão quadriculado (invisivel para O jo- 
gador). Cada quadradinho pode abrigar 
uma célula — uma bactéria, por exem- 
plo. Essa célula terá, de acordo com sua 
disposição no diagrama, até um máxi- 
mo de oito vizinhos. 

As regras do Jogo da Vida determi- 
nam quando uma célula deve sobrevi- 
ver ou morrer, e, também, quando uma 
nova célula deve nascer. São elas: 


e Uma célula nasce sempre que existe 
um espaço cercado por exatamente três 
vizinhos. 

e [Uma célula consegue sobreviver até a 
geração seguinte quando tem dois ou 
três vizinhos. 









e As células que não se enquadrarem nas 
situações anteriores morrem, Em um es- 
paço com mais de três vizinhos, por 
exemplo, supõe-se que faltará alimento 
ou oxigênio para todas as células. 

Baseado nessas regras, O programa 
determina o futuro de cada quadrado na 
tela e mostra como a colônia inicial, 
montada pelo jogador, se desenvolve de 
geração para geração, Cada geração 
corresponde a um ciclo completo de cal- 
culos para todo o quadriculado, 

Dependendo do tamanho da grade — 
ou seja, do número de quadradinhos —, 
o cálculo de uma geração será muito de- 
morado se se utilizar um programa es- 
crito em linguagem BASIC. Por isso, 
montamos o programa em linguagem de 
máquina, o que lhe permitirá observar 
uma geração da colônia a cada segun- 
do, aproximadamente. 

Como as gerações são exibidas em 
cores diferentes, o efeito visual é muito 
interessante. Você verá, na tela, como 
as colônias se espalham, mudam, frag- 
mentam-se em unidades menores, mor- 
rem ou rejuvenescem., 





A forma inicial da colônia é tunda- 
mental para o desenrolar do jogo. Al- 
guns padrões condenam a colônia ao 
fim após algumas gerações; Outros pos- 
sibilitam sua sobrevivência por centenas 
e centenas de gerações. Certas compo- 
sições determinam, ainda, que a coló- 
mia oscile entre um padrão e outro en- 
quanto durar a simulação, 


AS REGRAS DA VIDA 

A DISPOSIÇÃO INICIAL 

DA COLÔNIA 

COMO CRIAR UMA COLÔNIA 
O PROGRAMA EM CÓDIGO 





Cabe ao jogador estabelecer o padrão 
inicial, entrando as posições das primei- 
ras células, Um dos objetivos do jogo 
consiste em criar uma colônia que dure 
o maior número possivel de gerações — 
o programa informa quantas gerações 
se passaram. Entretanto, às vezes, vale 
a pena competir simplesmente para ver 
quem compõe a colônia com efeito mais 
interessante. Existem alguns padrões, 
por exemplo, que se deslocam em uma 
direção, recriando sua forma original a 
cada quatro ou cinco gerações, com um 
efeito adicional: a eliminação de todas 
as células que vão sendo encontradas no 
caminho. 

Você poderá aproveitar tal efeito pa- 
ra desenvolver um jogo em que dois 
oponentes montam formas “devorado- 
ras”, ganhando aquele que destrutr mais 
depressa a colônia do outro. 


O PROGRAMA 





Não entraremos em detalhe quanto 
ao funcionamento do programa em lin- 
guagem de máquina. Este é carregado 
e acionado por meio de um programa 
em linguagem BASIC que utiliza os co- 
mandos POKE e USR. Os códigos de- 
cimais correspondentes ao programa es- 
tão armazenados nas instruções DA TA 
que começam na linha 500 (no 5Spec- 
tcum) ou 1000 (no TRS-Color). A parte 
do programa escrito em BASIC simples- 
mente lê esses códigos, colocando-os nu- 
ma parte protegida da memória. Além 
disso, ela é responsável pela criação da 
tela e pela entrada da colônia incial. 

Este jogo é um interessante exemplo 
do uso de programas em código de má- 
quina a partir de um programa em BA- 
SIC. Apresentamos aqui as versões pa- 
ra os micros da linha Spectrum e TRS- 
Color. Os programas para outras má- 
quinas serão dados posteriormente. 


5 CLEAR 28671: FOR N=USR "A 
" TO USR "A"+7: READ A: 
POKE N,A: NEKT N 
6 DATA 0,24,60,102,102,60,24 
O 

7 GOSUB 200 
10 POKE 23658,8: BRIGHT 1: 





BORDER O: INK 6: PAPER O: CLS 


20 FOR N=0 TO 21: PRINT ATSN, 
O: PAPER 1;* ": NEXT N 
30 PLOT 63,0: DBAW 0,175: 
DRAW 192,0: DRAW 0,-175: DRAW 
-255,0: DRAW 0,175: DRAW 63,0 
40 PRINT AT 2,1; PAPER 2; INK 
7:”" VIDA ”; PAPER O; INK 6;AT 
S,1;” GER ";AT 6,1;” 0000 * 
70 RAND USR 28672: LET X=20: 
| ya RO 

BO PRINT AT Y,X; OVER 1:;"8": 
FOR N=1 TO 10: NEXT N: PRINT 
AT Y,X; OVER 1;" * 
90 LET AS=INKEYS: 
THEN GOTO 80 

92 IF AS="Q" THEN GOTO 110 
94 IF CODE A$=13 THEN PRINT 
AT Y,X;CHRS 144: POKE 30000+( 
(Y=1)*23)+(X-8), 144: GOTO BO 
95 IF AS="M” THEN PRINT AT Y 
X:;” ": POKE 30000+4((Y-1)*23) 
+(X-8),32: GOTO 80 
100 LET X=K-(AS="5")*(X>B)+(AS 
="8")*(X<30): LET Y=Y-(A$="7") 
*(Y>1)+(AS="6")*(Y<20): GOTO 
80 
110 OVER O: RAND USAR 28711 
120 PRINT AT 21,1; FLASH 1;"QU 
ALQUER TECLA PARA RECOMECAR”: 
FOR N=1 TO 200: NEXT N 
130 LET AS=INKEYS: IF AS="" 
THEN GOTO 130 

140 goTo 10 

200 LET L=500: RESTORE L: FOR 
N=28672 TO 28951 STEP 8 
210 LET T=0: FOR D=0 TO 7 
220 READ A: POKE N+D,A: LET T= 
T+A: NEXT D: READ A: IF AS>T 
THEN PRINT FLASH 1;"ERRO DE 


TF AS=" m 
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DADOS NA LINHA ";L: STOP 
230 LET L=L+10 

240 NEXT N 

250 RETURN 

500 DATA 33,25,117,1,211,3,62, 
32,484 
510 DATA 119,35,13,32,249,5, 
e VAR PRA! 
520 DATA 112,33,48,48,34,0,113 
(34,422 
530 DATA 2,113,33,48,117,34, 
252,112,711 
540 DATA 33,248,118,34,254,112 
,201,243,1243 
550 DATA 42,252,112,6,1,197,88 
ESPN AI! 
560 DATA 8,80,62,22,215,123, 
215,122,847 
570 DATA 215,126,35,254,32,40, 
10,214,926 
580 DATA 142,245,62,16,215,241 
,215,62,1198 
590 DATA 144,215,4,120,254,31, 
32,233,1033 
600 DATA 193,4,120,254,21,32, 
214,42,880 
610 DATA 252,112,237,91,254, 
112,229,213,1500 
620 DATA 1,200,1,197,221,33,4, 
113,770 
630 DATA 1,0,7,213,221,94,0, 
221,757 
640 DATA 86,1, 229, 25,235,225, 
26,254,1081 
650 DATA 32,209,40,1,12,221,35 
221,77) 
660 DATA 35,5,242, 07, 112,126, 
254,144,1025 
670 DATA 121,56,18,254,2,40,4, 
254,749 
680 DATA 3,32,14,126,254,32,32 


11,504 
690 DATA 58,251,112,24,6,254,3 
,40,748 

700 DATA 242,62,32,18,35,19, 
193,13,614 

710 DATA 32,185,5,242,99,112, 
209,225,1109 

720 DATA 237,83,252,112,34,254 
142:35:1117 

730 DATA 4,113,43,126,60,254, 
58,40,698 

740 DATA 4,119,195,203,112,62, 
48,119,862 

750 DATA 195,186,112,62,22,215 
,62,6,860 








760 DATA 215,62,2,215,33,0,113 
(62,702 

770 DATA 16,215,62,6,215,6,4, 
126,650 

780 DATA 35,215,16,251,58,251, 
112,60,998 

790 DATA 254,151,32,2,62,144, 
50,251,946 

800 DATA 112,62,127,219,254,31 
,218,40,1063 

810 DATA 112,251,201,149,248, 
118,48,117,1244 

B20 DATA 48,49,54,49,233,255, 
234,255,1177 

830 DATA 1,0,24,0,23,0,22,0,7/0 
840 DATA 255,255,232,255,0,0,0 
(0,997 


Para entrar a colônia inicial, mova o 
cursor usando as teclas de controle (fle- 
chas). Pressione <ENTER> para criar 
uma célula na posição desejada, M pa- 
ra matar uma célula, e Q para terminar 
a entrada e iniciar O Jogo. 





Após 115 gerações, Seis c 





10 CLSO:CLEAR 200, 30999 

20 FOR K=0 TO 11:T=0:FOR J=0 TO 
16:READ A:POKE 31000+K*17+J,A: 

T=T+A:NEXT:READ 5 

30 IF T<>5 THEN PRINT” ERRO NOS 
DADOS DA LINA*;1000+K*10;"NAO 

CORRA O PROGRAMA !!": END 

40 NEXT 

50 CLS O:FOR K=0 TO 3: PRINT €K* 

32,"geracao”;:POKE 31203+K,48:N 

EXT:POKE 65475,0 

60 PMODE 3:POKE 179,128:PCLS 

70 DEFUSR0=31000 

B0 X=2064:Y=1 

90 P=PEEK(X):POKE X, (P OR 5*Y)A 

ND (NOT (P AND 5*Y)) 

100 AS=INKEYS:IF AS=" " THEN 90 
110 POKE X,P 

120 IF AS$=""" AND X>1183 THEN X 

=X-3I2 

130 IF AS=CHAS (10) 
HEN X=X+32 

140 IF AS=CHAS(B) AND (X>1152 O 

R(X=1151 AND Y=1)) THEN Y=Y+1:I 

F Y>2 THEN Y=1:X=X-1 

150 IF AS=CHA$S (9) AND (X<3071 O 

R(X=3071 AND Y=2)) THEN Y=Y-1:1I 
F Y<1l THEN Y=2:X=X+1 

160 IF AS=CHRS (13) THEN 180 

170 GOTO 90 

180 H=USRO (0) 

190 IF INKEY5<>"Q”" THEN 1B0 

200 GoTO 50 

1000 DATA 182,121,226,139,16,18B 
3,121,226,142,121,227,108,132,1 
66,128,129,58,2425 


AND X<3040 T 


GEnERGTIO! SMB 
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E possível usar um sintetizador de voz 
para animar o jogo? 
Você pode tornar o jogo ainda mais | 
interessante programando seu micro 
| para anunciar mensagens ou descrever | 
| O que se passa na tela. 
Recorra ao manual do seu sintetiza- 
dor para ver como introduzir as Instru- 
| ções que tornarão possível fazer a mã- 
quina falar. 
Já publicamos em INPUT um artigo 
que examina em detalhe o uso de sin- 
tetizadores de voz. Consulte-o. 





1010 DATA 37,9,134,48,167,31,14 
0,121,231,37,239,198,4,206,4,11 
,142,1759 

1020 DATA 121,231,166,130,167,1 
92:,140,121,227,38,247,51,200,28 
190,38,238,2425 

1030 DATA 142,13,0,204,0,0,237, 
129,140,28,128,37,249,142,4,1728 
,206,1787 

1040 DATA 13,64,166,128,133,10, 
39,2,141,47,51,65,133,5,39,2,14 
1,1179 

1050 DATA 39,51,65,140,12,0,37, 
233,142,4,128,206,13,64,166,13Z 
,52,1484 

1060 DATA 2,230,192,134,10,141, 
52,230,192,134,5,141,46,53,2,16 
7, 128,1859 

1070 DATA 140,12,0,37,231,57,52 
,2,108,200,192,108,200,64,31,48 
,196,1678B 

1080 DATA 63,39,8,108,200,191,1 
08,95,108,200,63,193,63,39,8,10 
8,200,1794 

1090 DATA 193,108,65,108,200,65 
,53,130,165,98,39,19,193,2,39,3 
2,193,1702 

1100 DATA 3,39,28,230,98,67,52, 
2,228,224,231,98,32,17,193,3,38 
(1583 

1110 DATA 13,230,98,196,143,250 
,121,226,52,2,234,224,231,98,57 
/0,0,2175 


Para entrar a colônia inicial, movi- 
mente o cursor utilizando as teclas de 
controle (flechas). Pressione a barra de 
espaço para criar ou eliminar uma célu- 
la na posição desejada, e a tecla < EN- 
TER > para terminar a entrada e iniciar 
o Jogo. 

Um detalhe importante: este progra- 
ma não funcionará em um TRS-Color 
ou compatível que tenha um acionador 
de disquetes conectados, pois usa uma 
área de memória reservada. 











TABLETES 
GRÁFICOS 


Uma área de aplicação em que os 
computadores realmente excederam to- 
das as expectativas é a do desenho au- 
xiliado por computador, ou CAD (do in- 
glês Computer Aided Design). Máqui- 
nas de todos os tamanhos, dos micros 
domésticos aos computadores de gran- 
de porte (mainframes), têm sido usadas 
nas mais diversas áreas do desenho e do 
projeto gráfico. Desenhistas de moda, 
por exemplo, ou empresas de constru- 
ção civil, já empregam programas de 
CAD, e não apenas em projetos com- 
plexos. 

Muitos micros domésticos foram pla- 
nejados de modo a ter boa capacidade 
gráfica simplesmente para a implemen- 
tação de jogos do tipo videogame. Des- 
se ponto de partida, porém, desenvol- 
veram-se programas de desenho gráfi- 
co com recursos espetaculares, sobretu- 
do se levarmos em conta o tamanho e 
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custo dos micros a que se destinam, 

Um dos periféricos mais úteis para a 
exploração da capacidade gráfica dos 
computadores é o tablete gráfico, tam- 
bém chamado de mesa digitalizadora. O 
tipo mais comum permite que o usuá- 
rio desenhe sobre uma superficie dura 
(o tablete), com o auxílio de uma cane- 
ta. O movimento da caneta no tablete 
é duplicado na tela do computador por 
meio de uma criativa combinação de 
hardware e software. 

Para obter resultados equivalentes, 
sem empregar um tablete gráfico, seria 
preciso recorrer a um considerável vo- 
lume de programação. Mesmo assim, 
não se conseguiria o mesmo grau de fle- 
xibilidade, sobretudo na alteração ou 
eliminação de partes do desenho. 

Até os tabletes mais simples permi- 
tem o desenho de linhas sobre a tela. De- 
pendendo do programa com o qual são 


Ena Rad pet = (Rc (52 
d o E Do 
E À bm | Ea | 4 1 








Desenhar na tela do computador usando 
centenas de comandos em BASIC não é 
um procedimento razoável. Com o auxílio 
de um tablete gráfico, você trabalhará 
tão facilmente quanto com lápis e papel. 





usados, podem-se “pintar"' áreas intei- 
ras com uma certa cor, entre as dispo- 
níveis em seu micro. Os programas pos- 
sibilitam ainda a mudança instantânea 
de cores no desenho, sob o comando de 
algumas teclas ou por seleção feita no 
próprio tablete. Efeitos de “pinceladas” 
de diferentes larguras também podem 
ser simulados pelo programa, em com- 
binação com o tablete. 


“TIPOS DE TABLETE 


Existem diversos tipos de tablete pa- 
ra microcomputadores pessoais. O mais 
conhecido no Brasil é o KoalaPad, des- 
tinado aos modelos da linha Apple. De 
baixo custo em relação aos demais, 
apresenta algumas limitações, como a 
baixa resolução gráfica. 

Muitos outros modelos de tablete, co- 
mo o DigiPad, o GrafPad (para o Spec- 
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trum) e o BitPad One (para diversos ti- 
pos de micro), podem ser encontrados no 
exterior. No Brasil, são mais comuns os 
tabletes digitalizadores para uso profis- 
sional, como os da marca Digigraf, bas- 
tante caros. 

Os tabletes gráficos são vendidos em 
tamanhos que variam conforme a área 
de desenho disponível. Normalmente, 
suas medidas são especificadas segundo 
as dimensões padronizadas das folhas de 
papel (padrão DIN), tal como A3, Ad, 
A6 etc. Medem, assim, de 100 x 100 
mm (os menores, como o KoalaPad) a 
250 x 300 mm (tabletes médios, usados 
com micros pessoais). Os modelos uti- 
lizados com mesas digitalizadoras de 
grande porte, para aplicações em enge- 
nharia, chegam a ter 1000 x 750 mm. 
O tamanho, evidentemente, afeta o grau 
de precisão que se consegue atingir ao 
desenhar na superficie do tablete. 
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AS VANTAGENS 
DOS TABLETES GRÁFICOS 
o OS DIFERENTES TIPOS 
m DIGITALIZAÇÃO 


= E MAPEAMENTO 


Os tabletes variam também confor- 
me o cursor. Este pode ser um ponteiro 
ou uma caneta, preso ou não ao tablete 
por um fio, ou, então, uma “mira” for- 
mada por uma lente de vidro ou plásti- 
co, com uma cruz ao centro. 

Existem ainda alguns tipos de digita- 
lizadores gráficos que funcionam de mo- 
do diferente dos tabletes: são os pantó- 
grafos, ou traçadores de régua. Esses 
dispositivos utilizam um braço articula- 
do que se move em duas direções, X e 
Y. Na ponta do braço, prende-se uma 
caneta ou um lápis. O sistema pode ser 
mais barato do que um digitalizador de 
desempenho médio, mas, em contrapar- 
tida, sua precisão é menor. Além disso, 
não é fácil desenhar à mão livre com o 
pantógrafo. Em algumas situações, po- 
rém, esse dispositivo mostra-se de bas- 
tante utilidade — por exemplo, quando 
as coordenadas de pontos isolados pre- 
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cisam ser lidas rapidamente pelo com- 
putador. 


COMO FUNCIONA 





O tablete gráfico emprega o princi- 
pio da digitalização de curvas, ampla- 
mente usado em informática, já que 
muitas aplicações computacionais con- 
sistem na transformação adequada de 
um fenômeno analógico para uma se- 
quência de números binários (digitais). 

Um sinal analógico varia continua- 
mente e pode assumir qualquer valor 
fracionário, dentro de certos limites mi- 
nimo e máximo. Um exemplo de medi- 
dor analógico é o indicador de veloci- 
dade de um automóvel. Mas, como sa- 
bemos, o computador só é capaz de pro- 
cessar sinais digitais, Ou seja, represen- 
tados por meio dos números binários O 








e 1. A digitalização é justamente o pro- 
cesso de transformação de um sinal ana- 
lógico em um sinal digital que o com- 
putador possa “entender” e armazenar. 
O tablete gráfico, ou mesa digitaliza- 
dora, transforma desenhos em números 
(as coordenadas dos pontinhos que 
constituem as linhas do desenho). O 
computador, por sua vez, volta a trans- 
formar os números em desenhos, 
exibindo-os na tela com o máximo de fi- 
delidade ao original. Sem a tradução de 
uma figura em números, o computador 
não poderia “entender”” o desenho. 
O processo de digitalização consiste 
em dividir uma curva no maior número 
possível de segmentos iguais, ou uma 
área no maior número possível de qua- 
dradinhos de igual tamanho. Quanto 
maior o número de partes, maior o de- 
talhamento do desenho a ser entrado no 
computador. Contornos de figuras ou 
retas inclinadas em ziguezague são típi- 
cos de desenhos de baixa resolução. 
O número e o tamanho dos quadra- 
dos de divisão da imagem dependem do 
tipo do tablete gráfico, assim como do 
computador. Em sistemas profissionais 
de alta resolução, o tamanho de um pi- 
xel chega a um centésimo de milímetro, 
e os contornos das figuras produzidas 
têm uma aparência contínua (como os 
desenhos animados gerados por compu- 
tador). Os tabletes gráficos para micros 


não têm uma resolução tão alta, eviden- 
temente, mas um décimo de milímetro 
já é suficiente para a produção de tra- 
balhos de boa qualidade. 

A área do tablete (bem como a do 
vídeo) é dividida em um quadriculado 
imaginário, cujo número de linhas e co- 
ljunas varia de acordo com o computa- 
dor empregado ou, ainda, com o grau 
de resolução gráfica (baixa, média e al- 
ta, nos micros das linhas Apple, MSX 
e TRS-Color) selecionado pelo progra- 
ma ou pelo usuário. 

E importante lembrar que a resolu- 
ção máxima do tablete pode ser diferen- 
te da resolução gráfica da tela. Não tem 
sentido, por exemplo, utilizar um tablete 
com resolução de 100 000 pontos na 
área total, se a tela só representa 45 000 
pontos. Estaremos desperdiçando recur- 
sos, a um certo preço, pois o computa- 
dor não seria capaz de utilizar tanta in- 
formação gráfica. A situação contrária 
também ocorre — ou seja, pode-se uti- 
lizar um computador de alta resolução 
gráfica com um tablete de baixa re- 
solução. 

Muitos tabletes digitalizadores têm, 
no entanto, superfícies quadriculadas 
que permitem estabelecer uma corres- 
pondência com a representação na tela. 
As linhas e colunas podem ser numera- 
das, como se costuma fazer com a gra- 
de de referência de uma mapa. 





Nesse tipo de grade, cada quadradi- 
nho tem duas coordenadas — o nume- 
ro da linha e o número da coluna — que 
correspondem, aproximadamente, às 
coordenadas X e Y do ponto do centro 
do quadradinho. Em um sistema onde 
o ponto de origem estivesse no canto in- 
ferior esquerdo do tablete, o quadradi- 
nho de número 10/23, por exemplo, es- 
taria a uma distância de dez quadradi- 
nhos da esquerda, na horizontal, e a 23 
quadradinhos de distância da borda in- 
ferior, na vertical. Isso significa, portan- 
to, que um desenho — uma reta, por 
exemplo — pode ser convertido em uma 
série de números. Estes correspondem 
às coordenadas dos quadradinhos que 
a reta vai cruzar ao ser traçada sobre a 
superfície do tablete. 





“A GERAÇÃO DO SINAL 


Existem diversas maneiras de produ- 
zir e enviar ao computador os pares de 
números correspondentes aos pontos da 
superfície do tablete. 

Alguns tipos de mesa digitalizadora 
requerem uma caneta ou um apontador 
especial e dependem do contato direto 
da ponta desse dispositivo contra uma 
parte ativa da superfície; já outros exi- 
gem simplesmente o posicionamento 
próximo à superfície. 
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Entre as técnicas mais comuns de di- 
gitalização estão incluídas a conversão 
AD direta, a digitalização por grade de 
contato e a digitalização por grade de 
proximidade. 

A conversão AD direta é usada ape- 
nas pelos digitalizadores do tipo panto- 
gráfico ou de régua. O método mais 
simples é o do digitalizador de régua. 
Este tem dois braços articulados: um 
que se move na direção horizontal, e ou- 
tro, na vertical. Potenciômetros são co- 
nectados a cada braço, por meio de en- 
grenagens ou de polias. À medida que 
deslocamos os braços pela superfície, Os 
potenciômetros giram, produzindo uma 
voltagem contínua proporcional à dis- 
tância percorrida naquela direção, des- 
de a origem. Desse modo, obtemos as 
coordenadas X e Y dos pontos. 

O digitalizador pantográfico, por sua 
vez, possui dois braços, articulados em 
um “ombro” e um “'cotovelo””, cada 
um dispondo de um potenciômetro. As 
coordenadas X e Y, nesse caso, têm que 
ser calculadas por métodos trigonomé- 
tricos, a partir dos ângulos de posicio- 
namento de cada braço. 

Um conversor AD, ou analógico- 
digital, é responsável pela conversão da 
voltagem gerada nos potenciômetros. O 
conversor AD utiliza um processo de 
comparação escalonada: uma voltagem 
de referência, gerada internamente no 
conversor AD, é aumentada passo a 
passo, em pequenos incrementos fixos. 
A cada passo, ela vai sendo comparada 
com o sinal de entrada. Quando, final- 
mente, as duas voltagens se igualam, o 
número de passos que foram necessários 
é enviado ao computador. A voltagem 
de referência é então zerada, e o proces- 
so recomeça para um novo ponto do si- 
nal de entrada. A frequência de amos- 





tragem corresponde ao número de ve- 
zes que isso é feito por segundo. 

O digitalizador pantográfico requer 
dois conversores AD, um para cada po- 
tenciômetro. A resolução do conversor 
(ou precisão) é dada pelo número má- 
ximo de ''partes”' (valor do incremen- 
to) em que uma voltagem de entrada po- 
de ser dividida, e está relacionada ao nú- 
mero de bits do conversor. Assim, um 
conversor de oito bits, por exemplo, po- 
de gerar apenas um número entre 0 e 255 
— ou seja, a voltagem máxima é dividi- 
da em 256 pedacinhos. 

A informação gerada por cada con- 
versor é transferida diretamente para a 
memória do computador, através de al- 
guma porta de entrada (serial ou para- 
lela). Se a frequência de amostragem for 
muito grande, será necessário utilizar 
uma quantidade muito grande de me- 
mória. Por isso, a maioria dos progra- 
mas gráficos não armazena toda a infor- 
mação de um desenho em detalhes, mas 
simplesmente vai convertendo as coor- 
denadas em linhas na tela. 





“SENSORES DE SUPERFICIE 


O funcionamento dos tabletes exis- 
tentes para micros baseia-se, geralmen- 
te, em dois tipos distintos de mecanis- 
mo. Ambos dependem de sensores ocul- 
tos sob a superficie do tablete. 

Os tipos sensíveis ao contato direto 
são formados por duas folhas de plásti- 
co. Uma delas contém fios paralelos, es- 
paçados na direção horizontal; a outra, 
fios espaçados na direção vertical. Ao 
se encostar a ponta do estilete ou da ca- 
neta na superficie do tablete, o contato 
elétrico estabelecido entre os fios hori- 
zontais e verticais, naquele ponto, infor- 








ma ao computador as coordenadas do 
mesmo. Pode-se reconhecer facilmente 
esse tipo de tablete, já que qualquer ins- 
trumento pontiagudo, ou mesmo o pró- 
prio dedo, é capaz de ativar o sistema. 

As mesas digitalizadoras mais preci- 
sas, entretanto, utilizam o princípio da 
proximidade por indução eletromagné- 
tica. A malha de fios embutida sob a su- 
perfície recebe correntes elétricas em um 
sistema de varredura constante. Na pon- 
ta da caneta ou do cursor especial exis- 
te uma bobina detetora, que não preci- 
sa estar em contato direto com a super- 
fície. Pode-se, assim, colocar sobre es- 
ta uma folha de papel com o desenho 
já feito e copiá-lo. 





O SOFTWARE 


Embora sejam muitas as diferenças 
dos tabletes digitalizadores quanto ao 
hardware, o que realmente conta, em 
termos da exploração dos recursos de 
cada um, é o software. Como este tam- 


« bém é o responsável pela definição das 


características do desenho e pela facili- 
dade com que ele pode ser executado, 
a maior preocupação do usuário deve 
ser a escolha do programa aplicativo. 
Para que não se cometam erros, convém 
sempre assistir à uma demonstração 
completa do sistema. 

Evidentemente, o que o software é 
capaz de fazer depende muito do mode- 
lo do seu computador. Quanto mais rá- 
pido ele for, e quanto maior a sua me- 
mória, mais espaço existirá para a ope- 
ração de um tablete sofisticado. Aplica- 
ções em alta resolução, assim como pro- 
gramas com recursos embutidos, exigem 
muita memória. É interessante, portan- 


No menu de abertura, o KoalaPad mostra as opções disponíveis. A largura das “pinceladas'' pode ser escolhida à vontade. 
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to, utilizar disquetes, que facilitam o ar- 
mazenamento de telas e expandem a ca- 
pacidade do sistema, pelo uso do disco 
como memória virtual. 

O mesmo acontece com a capacida- 
de gráfica do sistema. Um bom progra- 
ma para tabletes gráficos explora até o 
limite máximo os recursos disponíveis 
no microcomputador. 

Muitos programas controlados ape- 
nas pelo teclado, como o publicado no 
artigo da página 414, são similares, em 
operação, ao software destinado aos ta- 
bletes. Porém, quanto à facilidade, ra- 
pidez, conveniência e flexibilidade, é 
enorme a diferença entre um sistema 
operado por teclado e o operado por um 
tablete. Um sistema controlado por te- 
clado não permite, por exemplo, o de- 
senho a mão livre. 





COMO UTILIZAR UM TABLETE GRÁFICO 


As combinações especificas entre 
computador/tablete variam bastante, 
pelas razões expostas anteriormente. 
Entretanto, todos os programas existen- 
tes foram projetados para trabalhar si- 
mulando o ato de desenhar ou pintar so- 
bre uma folha de papel. É isto, mais do 
que qualquer outra coisa, que dá aos ta- 
bletes gráficos tanta vantagem em rela- 
ção aos demais métodos de criação de 
imagens de alta resolução no microcom- 
putador. 

Em geral, um menu de abertura, co- 
mo o existente para o KoalaPad, ofere- 
ce ao usuário diversas opções quanto à 
técnica e tipo de desenho que se preten- 
de executar. A escolha pode ser feita pe- 
lo teclado, ou, mais comumente, usan- 
do-se o próprio tablete gráfico como se 
fosse a paleta de um artista. A tela exi- 





6 A opção de ''zoom” possibilita o desenho de pixels individuais. 








be potinhos de tinta, pincéis e outros 
materiais, que são selecionados com o 
cursor do tablete. Quando o cursor cor- 
respondente na tela estiver no lugar de- 
sejado, pressiona-se um botão ou tecla. 

O desenho é executado na tela a mão 
livre, seja usando apenas a imaginação, 
seja seguindo um modelo feito sobre pa- 
pel, que pode ser afixado ao tablete. Ca- 
be ao programa receber os sinais gera- 
dos pelo tablete, interpretá-los e colo- 
car instantaneamente a imagem traçada 
sobre a tela. 


OS PROGRAMAS E SEUS RECURSOS 


Algumas vezes, é difícil traçar uma 
reta, ou uma figura geométrica regular, 
a mão livre. Para isso, a maioria dos 
programas possui um menu de curvas e 
de figuras geométricas — como triângu- 
los, retângulos, arcos, círculos, elipses, 
retas etc. — que podem ser escolhidas, 
posicionadas sobre a tela e traçadas au- 
tomaticamente, no tamanho que se 
desejar. 

Os programas também oferecem o re- 
curso de apagar e corrigir partes do de- 
senho, ou, nos sistemas mais sofistica- 
dos, de voltar atrás, desfazendo-se a ul- 
tima operação realizada. Se isso não for 
suficiente para a obtenção do resultado 
pretendido, pode-se ainda recorrer ao 
recurso de apagar toda a tela e começar 
tudo de novo. 

E possível mudar a cor usada nos tra- 
ços do desenho, assim como no preen- 
chimento automático de áreas delimita- 
das (paint), a qualquer instante. Deve- 
se, inicialmente, delinear o desenho uti- 
lizando uma determinada cor. Em segui- 
da, coloca-se o cursor gráfico no inte- 


Um recurso útil às composições é a 





rior da área assim demarcada, e a sele- 
ção adequada é realizada. Se o espaço 
não estiver completamente fechado, a 
cor “escapa” para fora do mesmo, po- 
dendo tomar toda a tela. Por isso, con- 
vém sempre completar o desenho antes 
de começar a colori-lo. 

Opções mais especializadas variam de 
programa para programa. Alguns pos- 
sibilitam o traçado automático de ima- 
gens especulares (cópia invertida), ou a 
cópia de uma parte do desenho em ou- 
tra posição. Esta operação é chamada 
de “carimbo”, pois permite ao usuário 
criar, por exemplo, uma floresta intei- 
ra a partir do desenho de uma única ár- 
vore, ou, para maior variação, de sua 
cópia especular. 


COMO GUARDAR UMA IMAGEM 





Se você completou um desenho bo- 
nito e elaborado, certamente desejara 
armazená-lo permanentemente. Muitos 
softwares gráficos oferecem essa possi- 
bilidade por meio de um comando — 
dentro, é claro, das limitações impostas 
pelo hardware que você tem à disposi- 
ção. As figuras armazenadas podem ser 
recuperadas depois, com um comando 
de leitura, e os recursos do programa 
permitirão, ainda, que você as modifi- 
que. Se quiser, combine-as com outras 
figuras, que podem ser obtidas da bi- 
blioteca de ícones, fornecidos junto com 
o sistema ou criados por você. 

Armazene o desenho por tempo in- 
determinado ou utilize-o em outro pro- 
grama — num jogo, por exemplo. 

Para obter uma cópia da sua “obra 
de arte'”, fotografe a tela usando um fil- 
me em cores, ou copie o desenho em um 
plotter ou impressora gráfica. 


repetição de elementos-chave. 
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AVALANCHE: A 
ROTINA PRINCIPAL 


Já criamos uma página-título e uma 
página de instruções. Temos um tema 
musical e um cenário. Para completar 
o jogo, falta apenas uma rotina que 
controle as demais e dê vida a Willie. 


Este é o sétimo artigo da série Ava- 
lanche e você deve estar pensando, com 
razão, que já é hora de colocar o pro- 
grama em funcionamento. 

Um jogo em linguagem de máquina, 
porém, precisa de uma rotina principal 
que chame as rotinas de instrução, de exe- 
cução musical e de criação do cenário. 
Essa rotina deve ainda acertar os valores 





das variáveis do jogo, tais como o placar, 
o número de vidas e o nível de dificuldade. 
Sua origem será o endereço a ser chama- 
do quando quisermos rodar o programa. 

Depois de pronto, o programa será 
executado automaticamente assim que 
for lido da fita cassete. Por enquanto, 
contudo, não há razão para isso. Além 
do mais, precisamos ter acesso aos có- 
digos do programa para terminá-lo, o 
que seria absolutamente impossível se 
sua execução fosse automática. 


A listagem apresentada a seguir cor- 
responde à rotina principal que dá ini- 


TAREFAS DA ROTINA 
PRINCIPAL 

ORIGEM 

ACERTOS INICIAIS 
DANDO A PARTIDA 


cio à versão do nosso jogo para os mi- 
crocomputadores Spectrum. 


REM org 58576 

REM qbin call ti 

REM ld a,5 

REM 1d (57343),a 
' REM ld a,0 

REM ld (57344),a 

REM ld h1,0 

REM ld (57337),hl 

REM ld (57339),hl 

REM 1d (57341),hl 

REM nlv ld a,1l9 

REM ld (msk+1),a 

REM ret 

REM orq 58035 

REM ti * 

REM org 58281 

REM mak * 











3358338 





A origem é o endereço que chamare- 
mos por intermédio do comando RAN- 
DOM USR para que o programa seja 
executado. Não se esqueça de anotá-lo. 

Os rótulos que fazem parte da lista- 
gem não são chamados por esta seção 
do jogo. Eles serão utilizados por roti- 
nas futuras, quando nosso personagem 
tiver morrido e você quiser começar o 
jogo novamente. 


“ENDEREÇOS 





O programa começa chamando a 
sub-rotina ti, que imprime os titulos e 
a página de instrução. 

Vários parâmetros relativos à conta- 
gem de pontos são então estabelecidos. 
O escore propriamente dito é colocado 
nos endereços 57337 a 57342. O núume- 
ro de vidas fica em 57343 e o nivel de 
dificuldade em 57344. 


ACERTOS INICIAIS 


"Para que o jogador tenha direito a 
cinco vidas, o número 5 é colocado em 





57343, com o auxílio do acumulador. 
Zero é colocado do mesmo modo em 
57344, fazendo com que o nivel de difi- 
culdade inicial seja O, 

O escore inicial, zero, é acertado co- 
locando-se O nos endereços 57337, 
57338, 57339, 57340, 57341 e 57342, por 
meio do par de registros HL, 

Em seguida, A recebe o valor 19, e 
a rotina musical msk é ajustada para 
executar as dezenove primeiras notas da 
melodia Greensleeves. 


Esta é a rotina que dá início à versão 
do nosso jogo para o TRS-Color. 


LO ORG 19426 

20 GBIN JSR START 
30 LDA +45 

40 STA 18239 

50 CLA 18238 

60 LDX 418240 

70 LDB +46 

BO GBINI CLR ,X+ 
90 DECB 

BNE GBINI 

ARTS 

START EQU 19000 
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A origem corresponde ao endereço a 
ser chamado por intermédio da instru- 
ção EXEC, quando quisermos iniciar a 
execução do programa. Não se esqueça 
de anotar esse número. 

Os rótulos da listagem não são utili- 
zados nesta parte da rotina. Eles serão 
chamados por outras seções do progra- 
ma, que publicaremos mais tarde. Sua 
função é recomeçar o jogo, caso você 
queira prosseguir quando Willie for fa- 
talmente vitimado. 


| DANDO A PARTIDA 





Antes de mais nada, o programa cha- 
ma a sub-rotina START, responsável 
pela impressão da página-titulo e da pá- 
gina de instruções, que abrem o jogo. 
Em seguida, são estabelecidos diversos 
valores iniciais que influem na contagem 
final de pontos. 

O nível de dificuldade do jogo é ar- 
mazenado no endereço de memória 
18238. O número de vidas, por sua vez, 
fica em 18239. O escore propriamente 
dito é guardado em seis bytes, a partir 
do endereço 18240, 








PRIMEIROS ACERTOS 


O número inicial de vidas de Willie, 
5, é colocado no acumulador e transfe- 
rido para 18239. A instrução CLR lim- 
pa a posição de memória 18238, para ze- 
rar o nível de dificuldade. 

O registro X recebe o endereço ini- 
cial dos bytes de escore e o contador B 
recebe o número 6 — número de bytes 
de escore. A instrução  CLR,X+ lim- 
pa o conteúdo da posição de memória 
apontada por X e soma uma unidade ao 
valor de X. DEC B diminui B em uma 
unidade. A instrução BNE retorna ao 
rótulo GBINI para apagar o próximo 
byte até que B seja zero. Esse pequeno 
laço limpa todas as posições de 18240 a 
18245 — o que equivale a zerar todos 
os endereços que se referem ao escore, 
um depois do outro. 


RR 


Esta é a rotina principal que dá ini- 
cio ao jogo na versão do MSX. 


10 org -116/70 
20 oin call -12286B 


+ ne ei had Na 
f TRE, P 
E... Ea 
r sas 


sê i 
(e . er= Rd 
iwiiia e ad e a rt + 


call -12166 

ld a,5 

ld (-522l),a 
ld a,0 

td (-5228),a 
ld h1,0 

ld (-5219),hl 
JO (-5217) hn 
lá (-5215),hl 
hlv Jd a,19 
ld (-12162),a 
ret 


150 end 


A origem dessa rotina é o endereço 
que você chamará por intermédio de 
dois comandos, DEFUSR e USR(0), pa- 
ra começar a execução do jogo. Não se 
esqueça de anotar esse número. 

Os rótulos que precedem as instru- 
ções não são chamados nesta parte do 
programa. Serão utilizados pelas rotinas 
que inicializam o jogo quando o pobre 
Willie tiver sido morto e você quiser jo- 
gar de novo. 


DANDO A PARTIDA 


Inicialmente a rotina chama as 
sub-rotinas -12228 e -12166. Enquanto 


' ' di dn Lá 3 1 1 
paes nd risada - mo i i 
“ms aii “a 1 sb ' 


a primeira imprime o título e a página 
de instruções, à segunda cabe executar 
a música Greensleeves. 

Os vários parâmetros da contagem de 
pontos são, então, inicializados. O es- 
core propriamente dito é colocado nos 
endereços -5219 até -5214, O número de 
vidas fica em -5221 e o nível de dificul- 
dade, em -5228. 


ACERTOS INICIAIS 


O número 5 é colocado em -5221, por 
meio do acumulador, para que o joga- 
dor inicie a partida dispondo de cinco 
vidas. Do mesmo modo, O é colocado 
em -5228, para que o nível de dificulda- 
de inicial seja igual a 1. 

Os endereços -5219, -5218, -5217, 
-5216, -5215 e -5214, por sua vez, são 
preenchidos com o valor 0, por intermê- 
dio do par de registros HL, zerando o 
escore inicial. 

Em seguida, a rotina responsável pela 
música — colocada no endereço -12166 
— é ajustada para executar exclusiva- 
mente as dezenove primeiras notas da 
melodia Greensleeves., 














As mais modernas versões do inter- 
pretador BASIC desenvolvido pela em- 
presa norte-americana Microsoft foram 
implementadas nos microcomputadores 
das linhas TRS-80, TRS-Color, MSX e 
IBM-PC. Tanto elas quanto o MBASIC 
(usado em qualquer micro que tenha o 
sistema operacional compatível com o 
CP/M) possuem diversos recursos para 
dar acesso direto às posições absolutas 
de memória do computador, bem como 
à execução de programas em código de 
máquina a partir de um programa em 
BASIC. 

Já estudamos os principais elementos 
do BASIC para efetuar essas funções: 
o PEEK e o POKE. Porém, para uma 
interação mais eficaz entre programas 
em linguagem de máquina e programas 
em BASIC, outros comandos são neces- 
sários. Destacam-se, entre eles, o DE- 
FUSR, o USR e o VARPTR. 

Em artigos anteriores, vimos diver- 
sos exemplos de como executar um pro- 
grama em linguagem de máquina a par- 
tir de um programa em BASIC. O mé- 
todo mais comum consiste em armaze- 
nar o programa em código de máquina 
em uma parte não usada da memória 
RAM (ou seja, em uma parte não sujei- 
ta a ser invadida pelo programa BASIC 
ou por sua área de variáveis), e execu- 
tá-lo por meio de um comando USR co- 
locado em um ponto qualquer do pro- 
grama em BASIC. O comando DE- 
FUSR, ou equivalente, é usado para in- 
dicar a locação inicial do programa em 
linguagem de máquina. 

Esse método, entretanto, apresenta 
alguns problemas: 

* O programa em código de máquina 
precisa ser montado à parte e armaze- 
nado em fita ou disco, para, então, ser 
carregado na memória. 

e É necessário reservar uma parte pro- 
tegida da memória para armazenar o 
programa, o que pode ser inconvenien- 
te em muitos tipos de aplicação. 





A FUNÇÃO VARPTR 


Examinaremos, neste artigo, uma 
técnica alternativa, que consiste na uti- 


lização da função VARPTR para arma- 
zenar programas em linguagem de má- 
quina dentro do próprio programa em 
BASIC. Essa técnica proporciona pode- 
rosos recursos de programação para os 
usuários das linhas TRS-80, TRS-Color 
e MSX (os micros das linhas Sinclair e 
Apple dispõem do comando CALL, 
equivalente ao USR, mas não têm a fun- 
ção VARPTR). Veremos aqui como em- 
pregar a função VARPTR em micros da 
linha TRS-80; em artigos futuros trata- 
remos do TRS-Color e do MSX. 

O “truque” é muito simples: em vez 
de armazenarmos um programa em có- 
digo de máquina numa parte reservada 
de memória, nós o “enxertamos” dentro 
do programa em BASIC que o utilizará. 
Assim, quando o programa em BASIC 
for carregado da fita ou disco, para ser 
executado, trará junto, automaticamen- 
te, O programa ou programas em lingua- 
gem de máquina. Esse método permite 
a definição e armazenamento do núme- 
ro que quisermos de rotinas em lingua- 
gem de máquina, cada qual bem identi- 
ficada dentro do programa em BASIC. 

Mas onde armazenar código de má- 
quina dentro de um programa em BA- 
SIC? Existem diversas técnicas disponi- 
veis. As mais flexíveis, entretanto, usam 
o seguinte recurso: uma constante alfa- 
numérica (por exemplo, PG$) é defini- 
da dentro do programa, com um com- 
primento correspondente ao número de 
bytes do programa em código de máqui- 
na. Suponhamos, por exemplo, que a 
rotina em código de máquina terá doze 
bytes de extensão. Definimos, então: 


20 PGS=" dá 


Observe que foram colocados doze 
espaços em branco entre as aspas da li- 
nha 20. No lugar desses espaços, porém, 
poderiam introduzir quaisquer caracte- 
res, iguais ou diferentes. O que vale é 
o número correto de caracteres. Muitos 
programadores preferem usar uma se- 
quência numérica para assegurar que O 
número de bytes seja correto: 


20 PG$="123456789012” 


Feito isso, carregamos os bytes dis- 
poníveis (que estão automaticamente fi- 
xos e reservados na área de memória de 
programa) na variável PG$, com os có- 


Programas sofisticados e rápidos 
exigem a combinação de código 

de máquina e BASIC. Aprenda aqui 
uma série de truques para tornar 
mais eficaz a interação entre ambos. 


digos decimais, binários, octais, ou he- 
xadecimais correspondentes ao progra- 
ma em código de máquina. 

Um pequeno programa, contendo 
um laço FOR... NEXT, pode se encar- 
regar dessa tarefa. Ele lerá os códigos, 
armazenados em linhas DATA, e os co- 
locará nas locações absolutas de memó- 
ria, correspondentes à variável PGS, 
usando comandos POKE. 

A operação só precisa ser feita uma 
vez, Depois, o programa de carregamen- 
to pode ser apagado. 

O processo é simples, mas há um de- 
talhe técnico a ser resolvido: a localiza- 
ção das posições da memória onde PGS 
está armazenada. Teoricamente, pode- 
mos fazer esse cálculo para qualquer 
programa, desde que saibamos a loca- 
ção absoluta da memória onde ele co- 
meça (geralmente fixa para cada tipo de 
computador), e quantos bytes gasta ca- 
da linha do programa até chegarmos à 
linha em que PGS$ é definida. 

Na prática, porém, tal cálculo é difi- 
cil e demorado, podendo tornar-se real- 
mente trabalhoso se o programa ainda es- 
tiver em desenvolvimento. Nesse caso, ca- 
da alteração no programa, feita acima da 
linha onde a variável PG$ é definida, al- 
tera a sua locação na memória. 


ONDE ESTÃO AS VARIÁVEIS? 





Felizmente, é possível encarregar o 
próprio programa de calcular automa- 
ticamente a localização de PG$ na me- 
mória. Para isso, devemos usar a fun- 
ção VARPTR, cujo nome deriva da ex- 
pressão inglesa V4Riable PoinTeR, ou 
apontador de variável. 

Para entender como essa função tra- 
balha, precisamos saber como o compu- 
tador armazena cadeias alfanuméricas 
na memória. Como vimos no artigo da 
página 947, seu programa pode ter aces- 
so direto a toda essa informação por 
meio da função VARPTR. 

Recapitulando: toda vez que uma va- 
riável alfanumérica é definida, o inter- 
pretador BASIC cria três bytes aponta- 
dores, que contêm o comprimento da 
cadeia alfanumérica e o endereço abso- 
luto de onde ela se inicia. Por exemplo, 
para uma variável AS: 














VARPTR(AS) = locação do apontador de A$ 

PEEK(VARPTR(AS)) = comprimento de AS 

PEEK(VARPTR(AS$)+1) = byte menos 
significativo 
do endereço 
de A$ 

PEEK(VARPTR(AS)+2) = byte mais 
significativo 
do endereço 
de AS 


oo RR 





UM PROGRAMA COMPLETO 


Sabendo como determinar o endere- 
ço inicial de uma variável string na me- 
mória, fica fácil escrever um programa 
para carregar código de máquina na 
mesma. Vejamos, por meio de um 
exemplo, como isso funciona. 

A rotina em linguagem de máquina, 
apresentada a seguir, preenche toda a te- 
la com um caractere qualquer, previa- 
mente colocado na primeira posição da 
tela (por exemplo, se colocarmos * na 
posição O da tela, uma chamada à roti- 
na preencherá a tela com asteriscos qua- 
se que instantaneamente). 


10 ORG OBFFOH ;: ORIGEM 

20 LD HL,15360 :HL APONTA P/0 
30 LD DE,15361 DE APONTA P/1 
40 LD BC,1023 :POR 1023 VEZES 


50 LDIR ;REPETE 
60 RET iVOLTA AO BASIC 
70 END 


Quando traduzido por um Assem- 
bler, esse curto programa daria doze 
bytes em hexadecimal: 

Linha 20: 21 00 3€ 
Linha 30: 11 01 3€ 
Linha 40: Ol FF 03 
Linha50: ED BO 
Linha 60: C9 


que, em decimal, correspondem a: 


33,0,60,17,1,60,1,255,3,237,176 
,201 


Vamos escrever agora nosso progra- 
ma principal — ou seja, o programa em 
linguagem BASIC que utiliza a rotina 
em código de máquina. 

Não rode o programa ainda, pois o 
código de máquina não foi carregado: 


= O USO DE ROTINAS EM 
e CÓDIGO DE MÁQUINA 
DENTRO DE PROGRAMAS BASIC 

E OS COMANDOS USR E DEFUSR 
E COMO ARMAZENAR ROTINAS 


10 CLS: PRINT"PROGRAMA DE TESTE 
20 PGS=" a 

30 D=PEEK (VARPTR(PGS)+1) + 256 
* PEEK(VARPTR(PGS)+2) 

40 DEFUSRO=D 

B0 PRINT: INPUT "CARACTERE ";€CS 
90 CLS: PRINT CS 


*100 X=USRO(O) 


110 FOR I=1 TO 1000:NEXT I 
120 GOTO 10 

O programa funciona da seguinte 
maneira: a linha 20 define um string fi- 
xo, PGS, na memória de programa, 
com o comprimento de doze bytes. 

As linhas 30 e 40 localizam o endere- 
ço da variável PG$ e o definem como 
início de uma rotina de máquina. 

O comando usado para isso denomi- 
na-se DEFUSR, que é uma abreviatura 
da expressão DEFine USeR function. 
Seu objetivo é informar ao programa 
principal o endereço absoluto inicial da 
rotina. Nos microcomputadores da li- 
nha TRS-80 com BASIC para disco, 
podem-se definir até dez rotinas de 
usuário simultaneamente, por meio dos 
comandos DEFUSRO a DEFUSR9, que 
corresponderão às chamadas USRO a 
USRO9. 

Para os microcomputadores da linha 
TRS-80 com BASIC para cassete, pode- 
se definir apenas uma rotina USR. Nesse 
caso, não se pode contar com o coman- 
do DEFUSR para informar o seu ende- 
reço de partida. Temos, assim, que dar 
dois POKE em um apontador especifi- 
co da memória de trabalho do compu- 
tador. Eles correspondem aos bytes de 
endereço 16526 (para o byte menos sig- 
nificativo) e 16527 (para o byte mais sig- 
nificativo). Esse processo torna possível 
copiar diretamente os bytes obtidos pe- 
la função VARPTR. Para computado- 
res com BASIC para cassete, portanto, 
devemos substituir as seguintes linhas no 
programa anterior: 


30 POKE 16526, PEEK (VARPTA( 
PGS)+1) 
40 POKE 15527, PEEK (VARPTR( 


PG3)+2) 


Como a variável PGS$ está fixa den- 
tro do programa, a definição com DE- 
FUSR ou com POKE só precisa ser rea- 
lizada uma vez. 

A linha 80 pede ao usuário que entre 
pelo teclado o caractere com que deseja 


CC VUSR EM UM PROGRAMA 
E DIFERENÇAS ENTRE O BASIC 
PARA CASSETE E PARA DISCO 

a UM PROGRAMA PARA 
PREENCHER A TELA 


preencher a tela. A linha 90 limpa a mes- 
ma e coloca o caractere indicado na pri- 
meira posição. 

Finalmente, a linha 100 executa a ro- 
tina, por meio da função fictícia USR (da 
expressão, em inglês, USeR function). 
Como não se trata de um comando, USR 
pode ser colocada dentro de uma expres- 
são matemática válida. No exemplo, não 
precisamos passar nenhum argumento 
para a rotina de máquina (o que seria fei- 
to por meio do valor entre parênteses), 
nem obter um valor de retorno (o que se- 
ria feito através do próprio valor da fun- 
ção USR). Como vimos anteriormente, 
nos microcomputadores com BASIC pa- 
ra disco, cada DEFUSRn (onde n é um 
número inteiro entre O e 9) corresponde 
à rotina USRn. 

Como os computadores com lingua- 
gem BASIC para cassete aceitam ape- 
nas uma rotina de usuário, devemos 
substituir a linha 100 por: 


100 X=USR(0O) 


PROGRAMA DE CARREGAMENTO 





Antes de usar ou gravar o programa 
principal, é necessário carregar o pro- 
grama de código de máquina na variá- 
vel PG$. Para fazê-lo, anexe ao progra- 
ma anterior as seguintes linhas; 


50 FOR It=D TO D+12:READ Nt : 


POKE It,Nt : NEXT Tt 
60 DATA 33, O, 60, 17, 1, 60, 
A; 255, 4 237, 76; 208 
70 STOP 

O programa pode ser apagado com: 
DELETE 50-70 


Você notará que, ao listar o progra- 
ma principal, a linha 30 não estará mais 
vazia: ela conterá códigos gráficos e até 
mesmo comandos em linguagem BA- 
SIC, dependendo da linha do computa- 
dor que você estiver usando. 

Você pode agora gravar e executar O 
programa quantas vezes quiser, sem ter 
que carregar separadamente o progra- 
ma em linguagem de máquina. E, é cla- 
ro, até dez variáveis alfanuméricas di- 
ferentes poderão ser usadas no mesmo 
programa. Elas definirão rotinas de má- 
quina separadas, que serão chamadas de 
USRO, USRI, USRZ2 etc. 












Pa AR AN H pa O jogo está completo. Armado com suas 
JU flechas, Freddy observa os balões que 


começam a subir. Precisará de muito 


 MARCIANA(2)  miimanino 
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Já digitamos as rotinas encarregadas [HZ] 


Dia 
| de inicializar o jogo e de fazer a monta- SI Liso) 
Ê Í Ra gem dos gráficos. | 10 TEXT : HOME : PRINT "UM MOM 
“tm Vamos agora completar o programa,  ENTO...” 
























adicionando as rotinas de animação. 15 HIMEM: 18817 
20 GOSUB 1000 
“aa 30 GOSUB 3000 
O LAÇO PRINCIPAL 50 IF AX < > 28 THEN GOSUB 3 
00 | 
| 70 GOSUB 400 

E | Aa 90 GOSUB 500 
LO CLEAR 65287 100 GOSUB 210: IF DD = O THEN 


Ma 20 GOSUB 1000 50 
JOSUB 3000. 
| 50 TF ax<>29 THEN GOSUB 300 Esse programa, o principal do jogo, 


Ea eis pá foi estruturado de modo a chamar ape- 
100 GOSUB 200: IF dead=0 THEN nas as sub-rotinas necessárias. Primei- 
GOTO 50 ramente, ele define a tela e reserva es- 
paço na parte superior da memória (Ap- 
1 mm ple, TK-2000 e Spectrum). As sub- 
. rotinas chamadas nas linhas 20 a 30 (lis- 


se 








| 10 CLS 3: PRINT €266,"INICIALIZ tadas no artigo anterior) têm a função | 
| ANDO”; : SCREEN 0,1 de definir os blocos gráficos e iniciali- | 
pesa o zar o valor do recorde. 
o gd RO RO | O laço principal do programa vai da É 
50 IF AX<>29 THEN GOSUB 300 linha 50 à linha 100, e se repete enquan- 
70 GOSUB 400 to Freddy estiver vivo (variável dead ou | 
90 GOSUB 500 DD maior do que zero). Esse laço é res- | 
100 GOSUB 210:IF DD=0 THEN 50 ponsável pelo movimento da flecha, dá : 
aro aranha, de Freddy e dos balões. Cada t 
PR rotina chamada atualiza as variáveis 
10 CLS:COLOR 1,14,14 dentro do laço. 
ss dt do HORA DO “ALMOÇO” 
30 GOSUB 3000 : 
50 IF AX<>29 THEN GOSUB 300 


70 GOSUB 400 gem 
90 GOSUB 500 | 105 LET s(xinc)=1 
100 GOSUB 210:1F DD=0 THEN 50 110 FOR x=s(xpos) TO 29: GOSUB | + 
500: NEXT x 
120 LET a(vinc)=1: LET s(xinc) 


” 
=. 
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CT = kk 


=() 

125 FOR wy=s(ypos) TO 19 

130 IF y=my AND ax=29 THEN 
POKE 23607,60: PRINT AT my+1, 


29:" "+. POKE 23697,252 

140 GOSUB 500 

150 NEXT y 

160 POKE 23607,60: PRINT AT 10 
0: INK 2; PAPER 7; BRIGHT 1; 
FLASH 1;"Voce esta morto! Out 
ra jogada ?7";: POKE 23607,252 
165 LET aS=INKETS: IF ag="" 
THEN GOTO 160 

LZ0 IF aS="5" OR a$="S" THEN 
GoTo 30 

175 IF aS<>"n" AND a5ss>"Nº 
THEN GOTO 160 

180 POKE 23607,60: CLS STOP 


105 S(XI)=1 
110 FOR X=S(XP) TO 29:GOSUB 500 


O JOGO COMPLETO “FLECHAS CONTRA BALÕES 
LAÇO PRINCIPAL FREDDY SOBE 
A ARANHA E DESCE A ESCADA 


ATACA FREDDY 


— ATACA FREDDY A ANIMAÇÃO DA ARANHA 
“BALÕES EM MOVIMENTO 


ESTOURANDO BALÕES 











:NEXT X 
120 S(YI)=1:5(XI)=0 
125 FOR Y=S8(YP) TO 19 | 
130 IF Y=MY AND AX=29 THEN PUT( 
232, (MY+1)*8)- (239, (MZ+1)*8+7), 


S1,PSET 

140 GOSUB 500 rd >, Ww 
150 NEXT Y 

160 FOR SL=180 TO 160 STEP -1:8 


OUND SL, 1:NEXT:CLS: PRINT 6256,” 
VOCE ESTA MORTO |! 
QUER RECOMECAR (S/N) 7?” 
165 AS=INKEYS:IF AS="" THEN 165 
170 IF AS="5" THEN 30 
175 IF AS<>"N” THEN 160 
180 CLS:END 


P W 


105 S(XI)=1 

110 FOR X=S5(XP) TO 29:GOSUB 500 
“NEXT X 

120 S(YI)j=1:S(XI)=0 

125 FOR Y=S5(YP) TO 19 

130 IF Y=MY THEN PUT SPRITE 2,( 
X2,Y72),0,FD: PUT SPRITE 3, (X2,Y72 
) 0, FL 

140 GOSUB 500 

150 NEXT Y 

160 PLAY"ABCDEF":FOR X=1 TO 300 
': NEXT: SCREENO: CLS: PRINT"Você es 
tá morto!":LOCATE 0,12:PRINT"Jo 
ga novamente? (5S/N)” 

165 AS=INKEYS: IF AS="" THEN 165 
170 IF A$="S8" THEN RUN 

175 IF AS<S>"N”" THEN 160 

180 CLS:END 


976 









105 S(XI) = 1 


110 FOR X = S(XP) TO 29: GOSUB 
500: NEXT X 

120 S(YI) = 1:S(XI) = 0 

125 FOR Y = S(YP) TO 19 

130 HCOLOR= 0: FOR X = 16 TO 2 

4: HPLOT 230,7 * 8 + X TO 260,7 
* 8 + X: NEXT HCOLOR= 3 

140 GOSUB 500 

150 NEXT Y 

160 FOR SL = 1 TOS: PRINT CH 

RS (7);: NEXT TEXT HOME : P 

RINT "VOCE ESTA MORTO!": VTAB 1 
5: PRINT "QUER RECOMECAR? (S/N) 
170 GET AS 

180 IF AS = "58" THEN HOME : G 

OTO 30 

190 HOME END 


Após a remoção de todas as portas da 
gaiola da aranha, a variável dead (ou 
DD, nos outros microcomputadores) as- 
sume o valor 1 e as linhas 105 a 180 são 
executadas (190 no Apple e no TK-2000). 

A aranha move-se horizontalmente 
até chegar logo acima de Freddy. Em se- 
guida, realiza um movimento vertical, 
alcançando nosso infeliz personagem, 
que é, então, devorado. Quando isso 
ocorre, O jogador tem a opção de jogar 
mais uma vez (linhas 160 a 180). No pro- 
grama do Spectrum, deve-se colocar o 
valor 60 na posição 23607 para que to- 
do o conjunto de caracteres seja usado 
novamente. 


Dad E 
38 PROGRAMAÇÃO DEJOGOS 38 


SOBEM OS BALÕES 


210 LET b(count)=b(count)-l: 
IF b(count)<>0 THEN GOTO 280 
220 LET b(count)=b (maxcount): 
PRINT AT b(ypos)+t1l,b(xpos);" 
"-» LET b(vypos)=b(ypos)-lL: TF 
b(vypos)=4 THEN GOSUB 600: 
POKE 23607,60: PRINT AT 1,10+( 
3-props)*9:/"":AT 2Z,1)0+(3-props 
J*X9:” "+: POKE 23607,252: LET 
props=props-l 

225 IF props=0 THEN 

] 

230 TF ((av<>b(vpos) AND avys2b 
(vypoga)+L) OR (lax<b(xpos)jcl OR 
ax>b(xpos)+1)) THEN GOTO 250 
240 LET ascores=score+b (points): 
GOSUB 600: TF score2hiscore 


LET dead= 


THEN LET hiscore=score: POKE 
23607,60: PRINT AT 0,23; INK U 

: PAPER 6;hiscore: POKE 23607, 
252 

24h GOTO 380 

250 GOSUB 4300 

280 BRETUEBN 

210 B(CT)=B(CT)-1l:IF B(CT)J<>0 T 
HEN 280 

220 B(CT)=B(MC) 

221 B(YP)=B(YP)-1l: IF B(YP)=4 T 
HEN X2=B (XP) *8:Y2=B (YP)*B+B: PUT 


(X2,72)-(X2+15,Y2+15), SP, PSET:G 
OSUB 600:X2=(10+(3-PP) *9)*8:PUT 
(Xx2,8)-(X2+7,15),51,PSET:PUT(K 
2,16)-(X2+7,23),81, PSET:PP=PP-1 
225 IF PP=0 THEN DD=1 
230 IF ((AY<>B(YP) AND AY<>B(YP 
)J+1) OR (AX<B(XP)-1l OR AX>B (XP) 
+1)) THEN 250 
240 SC=5C+B(PO):X2=B(XKP)*B:YZ2=( 
B(YP)+1)*8:PUT(X2,Y2)-(X2+15,Y2 
+15) ,8P, PSET:GOSUB 600:IF SC>HS 


THEN HS=SC:GOSUB 1700 
245 GOTO 400 

250 GOSUB 4300 

280 RETURN 


210 B(CT)=B(CT)-1:TF B(CT)s20 T 
HEN 280 

220 B(CT)=B(MC) 

222 B(YP)=B(YP)-1:TF B(YP)=4 TH 
EN GOSUB 600:LINE ((10+((3-PP)* 
9))*8,7)-((10+((3-PP)*9))*8+7,2 
4), 44,BF:PP=PP-i 

225 IF PP=0 THEN DD=1 

230 IF ((AY<>DB(YP) AND AY<>B(YP 
)+1) OH (AX<B(XP)-1 OR AX2B(XP) 
+1)) THEN 250 

240 SC=SC+B(PO):GOSUB 600:1F SC 
2HS THEN HS=SC:GOSUB 1700 

245 GOTO 400 

250 GOSUB 4300 

280 RETURN 


210 B(CT) = B(CT) - d: 
< > 0 THEN 280 

220 B(CT) = B(MC) 

222 B(YP) B(YP) - 1: IF BIZ) 
= à THEN X2 = B(XP) * B:YZ2 = B 
(YP) * 8 + B: HCOLOR= O: DRAW B 

A AT X2,Y7Y2: GOSUB 600: HCOLOR= 

0: FOR X = 0 TO 6: HPLOT X + (4 
= PD) * 27,4 TO X + (4 — PP) * 
75,22: NEXT :PP = PP - d 

2258 TE PP = O TRENDD =l 

230 IF ((AY < > B(YP) AND AT 

< > B(YP) + 1) OR (AX < BIXP) 

1 OR AX > B(XP) + 1)) THEN 25 


IF BICT) 


|| 


O SC SC + B(P0):X2Z = B(XP) 

B:Y2 = (B(YP) + 1) * 8: HCOLO 
= 0: DRAW BA AT X2,72: HCOLOR= 
3: GOSUB 600: IF SC > HS THEN 


Ú 
24 
* 


h 


HS = SC: GOSUB 1700 
245 GOTO 400 

250 GOSUB 4300 

280 RETURN 


Os elementos mais importantes da 
matriz do balão são b (count) e b (max- 
count), para o Spectrum, e B(CT)e B 
(MC), para as outras linhas. Cada vez 
que a rotina é acionada, a linha 210 de- 
crementa b (count) ou B (CT), quando 
ela atinge O, o balão se move. Em segui- 
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da, a linha 220 copia o número de b 
(maxcount) para b (count) — ou B (MC) 
para B (CT), nos demais computadores. 
A velocidade do balão é determinada pe- 
lo valor de b (maxcount) — ou B (MC). 
A linha 220 verifica se o balão foi atin- 
gido ou se chegou ao topo da tela. 
Se o balão foi atingido, o placar é 1 

crementado; se ele chegou ao topo, um 
porta é removida. Quando todas as por- 
tas forem removidas, a variável dead (ou 
DD) assume o valor J. 


O ESTOURO DO BALÃO 


300 PRINT AT av,çax;" ": LET 
ax=ax-l: IF ax<0 THEN LET axs= 
29: PRINT AT my+1,29;"e”: LETAS 
av=my+l: RETURN 4 
310 IF ((av=bívpos) OR ay=b 
os)+1) AND (ax=b(xpos) OR ax=[M 
(xpos)+1)) THEN LET scores=sco W 
re+b (points): GOSUB 600: IF sc 
ore>hiscore THEN LET hiscores= 
score: POKE 23607,60: PRINT AT 
0,23; INK O; PAPER 6;hiscore: 
POKE 23607,252 
do depois THEN GOSUB 4100 THEN SC=SC+B(PO) :GOSUB 600: TF 
4 | SC>HS THEN HS=SC:GOSUB L700 
Dn 330 IF AX<>29 THEN GOSUB 4L10 
440 RETURN 


300 PUT(AXX8,AY*B)-(AXXB+S,AYX o 
B+7),S2, PSET:AX=AX-L:IF AX<O TH [EC 
EN AX=29:PUT(232, (MY+1)*8)-(239 | 
(MY+1) *8+7) ND 300 HCOLOR= 0: DRAW FL AT AX * 
URN " B,AY * 8: HCOLOR= 3:AX = AX ; 
310 IF ((AY=B(YP) OR AY=B(YP)+41 e Ma Cd na us iss 
) AND (AX=B(XP) OR AX=B(XP)+1)) vs 1. RETURN dd 
THEN SC=SC+B (PO) :X2=B(XP)*8:Y2 R 
E artsgprao x 310 IF ((AY = B(XP) OR AY = BC 
=B(YP) *8+8: PUT(X2,Y2)- (X2+15,Y2 Ê X 
vP) + 1) AND (AX = B(XP) OR AX 
+15), SP, PSET:GOSUB 600:1F SC>HS | 
ad ei - B(XP) + 1)) THEN SC = SC + B( 
THEN HS=SC:GOSUB 1700 | 
330 IF AX<>29 THEN GOSUB 4110 PO):X2 = B(XP) * 8:72 = B(YP) * 
| À 8. HCOLOR= O: DHAW BA AT X2,Y2 


340 RETURN HCOLOR= 3: GOSUB 600: IF SC > 
HS THEN HS = SC: GOSUB 1700 
330 TF AX < > 28 THEN GOSUB 


4110 
300 AX=AX-1:IF AX<O THEN AX=29: 340 RETURN 


PUT SPRITE 3, (232, (MY)*B),4,-hL: 


AY=MY: RETURN Esta e a rotina que anima a flecha, 
310 IF ((AY=B(YP) OR Av=B(vp)+1 Ela apaga a imagem anterior e coloca a 
) AND (AX=B(XP) OR AX=B(XP)+1)) nova na posição seguinte, determinada 


CITE LM 


peia variável AX. Essa variável é decre- 
mentada na linha 300. Para evitar que 
a flecha seja posta fora da tela, AX é 
recolocada em 29 (28, no Apple e no 
TK-2000) sempre que atinge um valor 
inferior a zero. Quando o valor de AX 
é 29 (ou 28), a flecha está com Freddy, 
e, como o balão não pode ser estoura- 
do, a rotina é abandonada. 

Logo depois do disparo da flecha — 
AX< >29 —, a linha 310 verifica se ela 
atingiu o balão e, em caso positivo, au- 
menta o placar. A rotina da linha 600, 
que promove o estouro do balão, é, en- 
tão, chamada. 

A linha 330, por sua vez, chama a 
sub-rotinã que desenha a flecha na po- 
sição de Freddy. 


FREDDY NA ESCADA 





400 LET aS=INKEYS: IF aS="* 
THEN RETURN 

410 IF aS="Z”" OR a$="2z”" THEN 
GOTO 450 

420 IF aS="c* OR a$="C” THEN 
GOTO 440 

430 IF ag<>”" ”" THEN RETURN 
432 IF ax<>29 THEN RETURN 

434 LET ax- 28: PRINT AT av,29; 
* T+ RETURN 


am 440 IF my=19 THEN RETURN 
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445 PRINT AT my,30; INK 6;"k1” 
LET my=my+1l: PRINT AT av,29; 
»". TF ax=29 THEN LET aysayv+ 


1 
446 GOTO 470 
450 IF my=5 THEN RETURN 
460 PRINT AT my+2,30; INK 6;" 
k1”": LET mysmy-l: PRINT AT ay, 
29;" ". TF ax=29 THEN LET ay= 
av-l 


470 GOSUB 4000: RETURN 


400 IF 
N 

410 IF 
420 IF 
430 IF 
RN 

432 IF AX<>29 THEN RETURN 

434 AX=2B8:PUT(232,A7Y*8)-(239,AY 
*8+7),81,PSET:RETURN 

440 IF MY=19 THEN RETURN 

445 PUT(240,MY*8)-(255,MY*B+7), 
KL, PSET:MY=MY+1: PUT(232,AY*8)-( 
239,AY*8+7),SI,PSET:IF AX=29 TH 
EN AY=AY+1 

446 GOTO 470 

450 IF MY=5 THEN RETURN 

460 PUT (240,MY*B+16)- (255, MY*B+ 
23),KL, PSET:My=MY-1:PUT(232,AY* 
8)-(239,A7*8+7),51,PSET:IF AX=2 
9 THEN AY=AY-1 

470 GOSUB 4000:RETURN 


400 
410 
420 
430 
432 
434 
440 
445 
+1 

446 
450 
460 
“3 

470 GOSUB 4000:RETURN 


rapto 


PEEK(337)=255 THEN RETUR 


PEEK (341)=247 THEN 450 
PEEK (342)=247 THEN 440 
PEEK (345)<2>2247 THEN RETU 


AS=INKEYS 

IF AS=CHR9(30) THEN 450 

IF AS=CHARS(31) THEN 440 

IF AS<>CHRS (32) THEN RETURN 
IF AX<>29 THEN RETURN 
AX=28:RETURN 

IF MY=21 THEN RETUAN 
MY=MY+1:IF AX=29 THEN AY=AY 


GoToO 470 
IF MY=5 THEN RETURN 
MY=MY-1:IF AX=29 THEN AY=AY 


400 POKE - 16368,0: FOR X = 1 
TO 10: IF PEEK ( —- 16384) > 1 
27 THEN X = 10: NEXT :PK = PEE 
K ( - 16384): GOTO 410 

405 POKE - 16368,0: NEXT RE 
TURN 

410 IF PK = 218 THEN 440 

420 IF PK = 193 THEN 450 

430 IF PK < > 160 THEN RETUR 
N 

432 IF AX < > 28 THEN RETURN 

434 AX = 27: HCOLOR= O: DRAW EL 
AT 224,AY * 8: HCOLOR= 3: RETU 

AN 

440 IF MY = 19 THEN RETURN 

445  HCOLOR= O: DAAW FD AT 240, 


MY * B:MY = MY + 1: IF AX = 28 


THEN DRAW FL AT AX * B,AY * B: 


AT = AT +11 

446  HCOLOR= 3: DRAW FD AT 240, 
MY * 8 

448 GOTO 470 

450 IF MY = 5 THEN RETURN 
460  HCOLOR= O: DRAW FD AT 240, 
ME * B:MY = MI - L: IF AX = 2B 


THEN DRAW FL AT AX * B,AY * 68: 
AY = AY - 1 

465 DRAW FD AT 240,MY * 8 

470 HCOLOR=: 3: GOSUB 4000: RET 


URN 


Em todos os programas, as linhas 400 
a 420 lêem o teclado, enquanto as linhas 
430 e 440 verificam se a barra de espa- 
ços foi pressionada e se Freddy está com 
a flecha. 

Enquanto nosso personagem se mo- 
vimenta para cima ou para baixo na es- 
cada, os caracteres desta têm que ser re- 
postos (ou a escada acabará desapare- 
cendo). Se AX = 29 (28, na versão pa- 
rao Apple e o TK-2000), a flecha tam- 
bém deve ser movimentada. 

Para que o programa funcione ade- 
quadamente no TK-2000, os usuários 
precisarão adaptar o trecho que vai da 
linha 400 até a linha 405. Consulte o ar- 
tigo de Programação BASIC que trata 
da substituição da função INKEY$ nes- 
se microcomputador e faça, então, as al- 
terações que forem necessárias. 


AS PERNAS DA ARANHA 





“00 LET temps=sa (xpos)+a (xinc) 
510 IF temp<l OR temp>8+(3-pro 
pa)*9 THEN LET s(xinc)=-a(xin 
c): GOTO 500 

520 POKE 23607,60: PRINT AT s( 
vpos),s(xpoBa);” ";AT s(ypos)+ 
l,s(xpog);" ":; POKE 23607,252 
530 LET s(vpos)=s(vypos)+s(vinc 
): LET a(xpos)=temp: LET sí(pic 
ture)=l-s (picture): GOSUB 4200 
540 RETUABN 


500 TE=S(XP)+8 (XI) 

510 IF TE<X1I OR TE>B+(3-PP)*9 TH 
EN 9(XI)=-S(XI):GOTO 500 

520 X2=S (XP) *B:Y2=9(YP)*8:PUT(X 
2,72)-(X2415,Y72+15),8P, PSET 

530 S(TP)=S(YP)+S(YI):S(XP)=TE: 
S(P1I)=1-S(PI):GOSUB 4200 

540 RETURN 


DM 


500 TE=S(XP)+S(HI) 

510 IF TE<1l OR TE>8+(3-PP)*9 TH 
EN S(XI)=-S(XI):GOTO 500 

530 S(VYP)=S(YP)+S(YI):S(XP)=TE: 
S(PI)=1-S(PI):GOSUB 4200 

540 RETURN 





fo] 


500 TE = S(XP) + S(XI) 

510 IF TE << ILORTESZB+(3.- 
PP) * 9 THEN S(XI) = - S(XI): 
GOTO 500 

520 X2 = S(XP) * B:Y2 = S(YP) * 
8: HCOLOR= 0: DRAW S(PI) + 1 A 


T X2,Y72: HCOLOR= 3 

530 S(YP) = S(YP) + S(YI):S(XP) 
= TE:S(PI) = 1 - S(PI): GOSUB 

4200 

240 RETURN 


A última rotina de animação trata da 
aranha marciana. Para tornar o jogo 
mais emocionante, ela não fica parada 
esperando por seu ''almoço””, Ao con- 
trário, movimenta-se impacientemente 
entre a parede e as portas. Desenhamos, 
por isso, duas figuras para a aranha. O 
número da figura corrente, manipulado 
pela linha 530, é guardado em s (pictu- 
re), no programa do Spectrum, e em S 
(PI), no dos demais micros. 

As linhas 500 e 510 têm a função de 
impedir que a aranha escape de sua gaio- 
la antes que todas as portas tenham si- 
do removidas. 


ERA UMA VEZ UM BALÃO 





600 PRINT AT b(ypos),b(xpos); 
BRIGHT 1; INK b(colour);"qh”; 
AT b(vypos)+l,b(xpos);"13” 

610 POKE 23607,60 
620 PRINT AT O,lá4á; 
PAPER 6;ncore 

630 SOUND .5,-20 
635 LET bl=bl-l: 
INK O; PAPER 6;bl;: 
THEN PRINT INK O; 


INK 0; 


PRINT AT 0,7; 
IF bl=9 
PAPER 6;” 


637 IF b1l=0 THEN LET bl=15+5* 
level: LET level=level+1: LET 
props=props-l: PRINT INK O; 
PAPER 6:AT O,7;b1l;AT 0,2; level 
: GOSUB 6000 
640 PRINT AT b(ypos),b(xpos);” 
";AT b(vypos)+1L,b(xpos);” *” 
650 PRINT AT av,ax;" ”: LET a 
x=29: LET ay=mny+l 
660 POKE 23607,252: GOSUB 4000 
* GOSUB 5000: RETURN 


600 X2=B(XP)*B:Y2=B(YP)*8:PUT ( 
X2,72)-(X2+15,72+15),6J,PSET 
620 COLOR O:LINE(114,2)-(150,7) 
, PSET,BF:NU=SC:DRAW"C1;BM114,2” 
“GOSUB 1650 

630 PLAY"V31;T200;02;BAGFEDC;01 
: BAGFEDC” 

635 BL=BL-1:COLORO:LINE (58,2)-( 
68,7), PSET,BF:DRBAW"BM58B,2;52;C1 
"-«NU=BL:GOSURB 1650 

637 IF BL=0 THEN PP=3:LV=LV+1:B 


L=15+5*LV:COLORO: LINE (14,2)-(24 
7), PSET,BF:LINE(58,2)-(68,7),P 
SET, BF:NU=LV: DRAW"BM14,2;C1”:GO 
SUB 1650:GOSUB 6000:NU=BL:DRAW” 
BM58,2;C1l”:GOSUB 1650 

640 X2=B(XP)*B:Y2=B(YP)*B:PUT(X 
2,72)-(X2+15,72+15),5P, PSET 

650 PUT(AX*B,AY*B)-(AX*B+15,AYX 
B+7),52, PSET:AX=29:AY=MY+1 

660 GOSUB 4000:GOSUB 5000: RETUR 
N 


600 X2=B(XP)*B:Y2=B(YP)J*8:PUT 5 


PRITE 4, (X2,Y2),9,BE 

630 BL=BL-1 

640 IF BL=O THEN PP=3:LV=LV+I1:B 
L=15+5*LV 


650 GOSUB 1/00 

660 PUT SPRITE 3, (AX*B,AY*B),4, 
FL:AX=29:AY=MY 

670 GOSUB 4000:CGOSUB 5000:RETUR 
N 
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) ' | 


HCOLOR= 3:X2 = B(XP) * 8:Y 
* B: DRAW BE AT K2,Y72 


600 
2 = B(YP) 





























610 BL = BL +- 1 


620 IF BL = 0 THENPP = 3I:LV= 
LU + 1:5BL = 15 +'5 * LV 

630 GOSUB 1700 

640 HCOLOR= 0:X2 = B(XP) * 8:Y 

2 = B(YP) * 8: DRAW BE AT X2,Y2 

650 DRAW FL AT AX * B,AY * B:A 


“= 2B8B:A7 = MY + 1: HCOLOR= 3 
660  GOSUB 4000: GOSUB 5000: RE 
TURN 


Essa rotina promove o estouro do ba- 
lão quando ele é atingido pela flecha. 
Ela é muito simples: apenas coloca na 
tela a imagem do balão estourado, apa- 
gando-a em seguida. 

Depois de cada estouro, atualiza-se 
o número de balões restantes e, se for 
necessário, também o nível de dificul- 
dade. A flecha deve voltar, então, à po- 
sição de Freddy, para que ele possa es- 
tourar o próximo balão, 


LINHA 


Apple Il + 

Apple Il+ 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple + 
Apple ll+ 
Apple Il + 
Apple + 
Apple + 
Apple + 
Apple ll+ 
Apple ll + 
Apple ll+ 
Apple ll + 
Apple Il + 
Apple ll + 
Apple Il + 
Apple + 
Apple Hl+ 
Apple Il + 

Apple Il + 
Apple ll + 
Apple ll + 
Apple ll + 
Apple Il + 
Apple ll+ 
Apple lle 

Apple Ile 


Apple Ile 
MSX 


MSX 


FABRICANTE Po 


Appletronica 
CCE 

CPA 

CPA 

Digitus 
Dismac 
ENIAC 
Franklin 
Houston 
Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Milmar 
Milmar 
Milmar 
Omega 
Polymax 
Polymax 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Unitron 
Victor do Brasil 
Victor do Brasil 
Microcraft 
Microdigital 
Spectrum 
Gradiente 
Sharp 


MODELO 


Thor 2010 
MC-4000 Exato 
Absolutus 


| Polaris 


DGT-AP 
D-8100 
ENIACII 
Franklin 
Houston AP 
DMII 
MX-2001 
MX-48 

MX.64 
Maxitronic | 
Crafll Plus 
Apple Il Plus 
Apple Master 
Apple Senior 
MC-400 
Maxxi 

Poly Plus 
Microengenho | 
Spectrum ed 
Venus ll 

SICI 

API 

Elppa ll Plus 
Elppa Jr. 
Craftlle 
TK-3000 He 


"Microengenho ll 


Expert GPC4 
Hotbit HB-8000 


FABRICANTE 


Appletronica 
Apply 

CCE 

CPA 

CPA 
Codimex 
Digitus 
Digitus 
Digitus 
Dismac 
Dismac 
Dismac 
Dynacom 
ENIAC 
Engebras 
Filcres 
Pranklin 
Gradiente 
Houston 
Kemitron 
LNW 

LZ 

Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Microcraft 
Microdigital 
Microdigital 
Microdigital 
Microdigital 


MODELO 


Thor 2010 
Apply 300 
MC-4000 Exato 
Absolutus 
Polaris 
CS-6508 
DGT100 
DGT-1000 
DGT.AP 
D-8000 
D-8001/2 
D-8100 
MX1600 
ENIACII 
AS+1000 
NEZ-8000 
Franklin 
Expert GPC1 
Houston AP 
Naja 800 
LNW-B0 
Color 64 
DMI 
MX-2001 
MX-48 
MX-64 
Maxitronic | 
Craft ll Plus 
Caftlle 
TK-3000 Ile 
TK-82C 
TK-83 

TK-85 


PAÍS 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


Brasil 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


LINHA 


Apple Il+ 


o Sinclair ZX-81 


Apple ll + 
Apple + 
Apple ll + 
TRS-Color 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
Apple + 
TRS-80 Mod.! 
TRS-80 Mod. 
Apple ll + 
TRS-Color 
Apple ll+ 
Sinclair ZX-81 
Sinclair ZX-81 
Apple ll + 
MSX 

Apple Il + 
TRS-80 Mod.lll 
TRS-80 Mod. | 
TRS-Color 
Apple Il + 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple Il+ 
Apple lle 
Apple lle 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 


Microdigital TK-90X Brasil 
Microdigital TKS-800 Brasil 


Sinclair Spectrum | 
TRS-Color 


Microdigital TK-90X 
Timex 2000 


Sinclair Spectrum 
Sinclair Spectrum Timex 


Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
TRS-80 Mod.I 
TRS-80 Mod. | 
TRS-80 Mod. | 
TRS-80 Mod.! 
TRS-80 Mod.lil 
TRS-BO Mod.il 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lll 
TRS-80 Mod.lil 
TRS-80 Mod.IV 
TRS-80 Mod.IlV 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 


Apply 
Engebras 


“Filcres 


Microdigital 
Microdigital 
Microdigital 
Prologica 
Ritas 

Timex 
Timex 
Dismac 
Dismac 
LNW 

Video Genie 
Digitus 
Digitus 
Kemitron 
Prologica 
Prologica 
Sysdata 
Sysdata 
Multix 
Sysdata 
Codimex 
Dynacom 
LZ 
Microdigital 
Prologica 


Apply 300 
AS41000 
NEZ-8000 
TK-B2C 
TK-83. 
TK-85 
CP-200 
Ringo R-470 
Timex 1000 
Timex 1500 
D-8000 | 
D-8001/2 
LNW-80 
Video Genie | 
DGT100 
DGT-1000 
Naja 800 
CP-300 
CP-500 
Sysdata Ill 
Sysdata Jr. 
MX-Compacto 
Sysdata IV 
CS-6508 
MX-1600 
Color 64 
TKS-800 
CP-400 


Milmar 
Milmar 


“Milmar 


Multix 
Omega 
Polymax 
Polymax 
Prologica 
Prologica 
Prologica 
Prologica 
Ritas 

Sharp 
Spectrum 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Sysdata 
Sysdata 
Sysdata 
Timex 
Timex 
Timex 
Unitron 
Victor do Brasil 
Victor do Brasil 
Video Genie 


Apple ll Plus 
Apple Master 
Apple Senior 
MX-Compacto 
MC-400 

Maxxi 

Poly Plus 
CP-200 

CP-300 

CP-400 

CP.500 

Ringo R-470 
Hotbit HB-8000 
Microengenho | 
Microengenho Il 
Spectrum ed 
Venus ll 

SICI 

Sysdata Ill 
Sysdata IV 
Sysdata Jr. 
Timex 1000 
Timex 1500 
Timex 2000 
APII 

Elppa Il Plus 
Elppa Jr. 

Video Genie! 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

USA 

USA 

Brasil 
Brasil 
Brasil 
USA 


Apple Il + 
Apple ll + 
Apple Il + 
TRS-B0 Mod.IV 
Apple Il + 
Apple Il + 
Apple l+ 
Sinclair ZX-81 
TRS-80 Mod.Ill 
TRS-Color 
TRS-80 Mod.lll 
Sinclair ZX-81 
MSX 

Apple Il+ 
Apple Ile 
Apple l+ 
Apple Il + 
Apple Il + 
TRS-80 Mod. 
TRS-80 Mod.IV 
TRS-80 Mod.lll 
Sinclair ZX-81 
Sinclair ZX-81 


Sinclair Spectrum 


Apple Il + 
Apple Il + 
Apple ll+ 
TRS-80 Mod. | 


EN an Tin macas 
é, UM LOGUTIE SI qi , 


“INPUT foi especialmente projetado para PN 
“ microcomputadores compatíveis com as sete principais Sinclair E TARSO TK:2000 MSX 


“linhas existentes no mercado. 
ba, então emp a sr 


“Os blocos de textos e listagens de programas po pera 
Eme renes E UM [06] Semp e 
; identificados por meio dos seguintes sim os: TRS-Color pune dl 


ED Dm me eee mo meto mm o em em 





e qm 


ERC 


jmMESE: 


PROGRAMAÇÃO DE JOGOS 


Jogos de guerra no micro. Organização do jogo. Regras da 
batalha. Funcionamento da tela. Criação dos blocos gráficos. 


CÓDIGO DE MÁQUINA 
Avalanche: a sincronia dos diversos eventos. Rotinas 
encarregadas do acerto inicial das variáveis. 


PROGRAMAÇÃO BASIC 
Os diferentes métodos de controle de jogos por teclas 
múltiplas. A matriz do teclado. Um teclado a quatro mãos. 


PROGRAMAÇÃO BASIC 


Mecânica no micro: simulação de roldanas, 
polias e alavancas. 





